How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/AZTECW.DIR/01697_Script_YOUR HOME

Text File | 1995-09-12 | 4KB | 146 lines

global gQuest, gBeenClicked, gHouseIsOpen

on AHomeRollovers1
  set gBeenClicked = 0
  set textboxsprite9 = 231
  set textboxsprite11 = 234
  if (not(CheckClickedStatus(gQuest))) then
    if the mousecast = the castnum of sprite 6 then
      repeat while the mousecast = the castnum of sprite 6
        AztecCursor
        if the mousedown then
          RemoveTheHouse
        end if
      end repeat
    else
      if rollover(7) then
        repeat while rollover(7)
          AztecCursor
          puppetsprite 8, true
          puppetsprite 9, true
          set the locH of sprite 8 to 444
          set the locV of sprite 8 to 384
          if gHouseIsOpen = 1 then
            set the castnum of sprite 9 = textboxsprite9 + 1
          end if
          set the locH of sprite 9 to 444
          set the locV of sprite 9 to 285
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              repeat while gBeenClicked = 1
                AnimateToSlowPauseFrom 7, 224, 5, "SA140103.AIF", 1
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 9 to 944
        set the locH of sprite 8 to 944
        puppetsprite 8, false
        puppetsprite 9, false
        updatestage
      else
        if rollover(10) then
          repeat while rollover(10)
            AztecCursor
            puppetsprite 11, true
            if gHouseIsOpen = 1 then
              set the castnum of sprite 11 = textboxsprite11 + 1
            end if
            set the locH of sprite 11 to 252
            set the locV of sprite 11 to 291
            updatestage
            if the mousedown then
              set GBeenClicked = 1
            else
              if gBeenClicked = 1 then
                repeat while gBeenClicked = 1
                  AnimateLoopFastest 10, 263, 4, "SA14130X.AIF", 3
                end repeat
              end if
            end if
          end repeat
          set the locH of sprite 11 to 952
          puppetsprite 11, false
          updatestage
        else
          if rollover(40) then
            HandCursor
          else
            if rollover(41) then
              HandCursor
            else
              if rollover(42) then
                HandCursor
              else
                ArrowCursor
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on AHomeRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(9) or rollover(8) then
      ArrowCursor
      repeat while rollover(9) or rollover(8)
        set the locH of sprite 10 to 544
        set the locV of sprite 10 to 319
        updatestage
      end repeat
      set the locH of sprite 10 to 944
      updatestage
    else
      if rollover(11) then
        ArrowCursor
        repeat while rollover(11)
          set the locH of sprite 12 to 437
          set the locV of sprite 12 to 302
          updatestage
        end repeat
      else
        if rollover(39) then
          HandCursor
        else
          if rollover(41) then
            HandCursor
          else
            if rollover(42) then
              HandCursor
            else
              ArrowCursor
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end


on RemoveTheHouse
  puppetsound "SA140111.AIF"
  wait .5
  puppetsprite 6, true
  set the locH of sprite 6 to 900
  updatestage
  set gHouseIsOpen = 1
end

on ReplaceTheHouse
  set the locH of sprite 6 to 342
  set the locV of sprite 6 to 201
  puppetsprite 6, false
  updatestage
  set gHouseIsOpen = 0
end